Namespace Aricie.DNN.Modules.LuceneSearch.Logs
    Public Class FilterLogPurger

        Private _PurgePeriod As TimeSpan

        Public Sub New(ByVal purgePeriod As TimeSpan)
            Me._PurgePeriod = purgePeriod
        End Sub


        Public Function PurgePredicate(ByVal filterLog As FilterLogInfo) As Boolean
            Return filterLog.LogDate > Date.Now - Me._PurgePeriod
        End Function

    End Class
End Namespace